# ======================================================================
#
# Copyright (C) ADN
# ADN::XML::Create Create.pm
# Description:
#  - Création XML pour les requetes SNMP 
#
# ======================================================================

package ADN::XML::Create;

use strict;
use vars qw($AUTOLOAD);
use ADN::XML::OBJtoXML;

# #######################
# Création de l'objet self + init. variables
# #######################
sub new
{
 	# Construction de l'objet $self
  my $self = shift;
 	my $class = ref($self) || $self;
 	return $self if ref $self;
 	$self = bless {} => $class;
 	($self->{ref_hach}, $self->{ip}) = @_;
 	%{$self->{hach}} = %{$self->{ref_hach}};
 	$self->{objtoxml} = ADN::XML::OBJtoXML->new();
  return $self;
}

# #######################
# Fonction met au format xml les infos de la sonde
# #######################
sub AUTOLOAD
{
  my $self = shift;
  my $balise = $AUTOLOAD;
  $balise =~ s/.*:://smx;

  while (my ($k, $v) = each %{$self->{hach}})
  {
    if ($v !~ m/^$/smx)
    {
      $self->{objtoxml}->$k($v);
    }
  }
  $self->{objtoxml}->Host($self->{ip});
  return ($self->{objtoxml}->$balise($self->{objtoxml}, "all"));
}
1;
__END__